﻿Public Class CInstrumento
    Private _strNombre As String

    Public Property Nombre As String
        Get
            Nombre = Me._strNombre
        End Get
        Set(value As String)
            Me._strNombre = value
        End Set
    End Property

    Public Sub New(ByVal NombreEntrada As String)
        Nombre = NombreEntrada
    End Sub

    Public Overrides Function ToString() As String
        Return Nombre
    End Function
End Class
